home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / graphics / 3dvect37.zip / SEQUENCE.INC < prev    next >
Text File  |  1994-06-22  |  26KB  |  820 lines
  1. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  2. ;
  3. ; Filename     : sequence.inc
  4. ; Included from: Main.asm
  5. ; Description  : Object and Sequence for that cheezy animation
  6. ;
  7. ; Note: This animation is not done, I just wanted to get the source out so
  8. ; you could do something with it...
  9. ;
  10. ; Written by: John McCarthy
  11. ;             1316 Redwood Lane
  12. ;             Pickering, Ontario.
  13. ;             Canada, Earth, Milky Way (for those out-of-towners)
  14. ;             L1X 1C5
  15. ;
  16. ; Internet/Usenet:  BRIAN.MCCARTHY@CANREM.COM
  17. ;         Fidonet:  Brian McCarthy 1:229/15
  18. ;   RIME/Relaynet: ->CRS
  19. ;
  20. ; Home phone, (905) 831-1944, don't call at 2 am eh!
  21. ;
  22. ; John Mccarthy would really love to work for a company programming Robots
  23. ; or doing some high intensive CPU work.  Hint. Hint.
  24. ;
  25. ; Send me your protected mode source code!
  26. ; Send me your Objects!
  27. ; But most of all, Send me a postcard!!!!
  28. ;
  29. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  30.  
  31. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  32. ; spaceship data
  33. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  34.  
  35. ship1      dd 8500
  36.            dd offset hship1 - offset $ - 4
  37.            dd -1
  38.            dd offset lship1 - offset $ - 4
  39.  
  40.            sbc equ 0 ; ship body colour
  41.            suc equ 1 ; ship underside colour
  42.            swc equ 0 ; ship window colour
  43.            sec equ 2 ; ship engine colour
  44.  
  45. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  46. ; lo resolution spaceship
  47. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  48.  
  49. lship1     dw 10   ; lo resolution ship
  50.            dw 6
  51.  
  52.            dw 25 dup (0)
  53.  
  54.            ;    x   y   z
  55.            dw    0, 18,188  ; 0
  56.            dw    0,-42,-68  ; 1
  57.            dw  -48, 18,-82  ; 2
  58.            dw   48, 18,-82  ; 3
  59.            dw   34, 18,-14  ; 4
  60.            dw  -34, 18,-14  ; 5
  61.            dw -100, 18,-22  ; 6
  62.            dw  -74, 18,130  ; 7
  63.            dw  100, 18,-22  ; 8
  64.            dw   74, 18,130  ; 9
  65.  
  66.            dw 0,0,0,16*sbc+12,0,3,4,2,3         ; engine
  67.            dw 0,0,0,16*sbc+12,0,6,8,7,3,6       ; top
  68.            dw 0,0,0,16*sbc+12,0,5,4,9,10,5
  69.            dw 0,0,0,16*sbc+12,0,2,1,3,2
  70.            dw 0,0,0,16*sbc+12,0,4,1,2,4
  71.  
  72.            dw iterate,0,0,16*suc+12,0,6,3,7,8,6   ; underside
  73.  
  74.                 dw 0,2
  75.                 dw 25 dup (0)
  76.  
  77.                 dw 0,0,0,16*suc+12,0,5,10,9,4,5
  78.                 dw 0,0,0,16*suc+12,0,1,4,3,1
  79.  
  80. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  81. ; hi resolution spaceship
  82. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  83.  
  84. hship1     dw 18   ; hi resolution ship
  85.            dw 16
  86.  
  87.            dw 25 dup (0)
  88.  
  89.            ;    x   y   z
  90.            dw    0, 18,188  ; 0
  91.            dw    0, -4, 94  ; 1
  92.            dw  -20, -4,-16  ; 2
  93.            dw    0,-30,-34  ; 3
  94.            dw   20, -4,-16  ; 4
  95.            dw    0,-42,-68  ; 5
  96.            dw  -48, 18,-82  ; 6
  97.            dw   48, 18,-82  ; 7
  98.            dw   34, 18,-14  ; 8
  99.            dw  -34, 18,-14  ; 9
  100.            dw  -60, 18,  0  ;10
  101.            dw  -80,-20, -6  ;11
  102.            dw -100, 18,-22  ;12
  103.            dw  -74, 18,130  ;13
  104.            dw   80,-20, -6  ;14
  105.            dw  100, 18,-22  ;15
  106.            dw   74, 18,130  ;16
  107.            dw   60, 18,  0  ;17
  108.  
  109.            dw 0,shade,0,16*sbc,0,10,3,2,1,10   ,0,0,0 ; front body
  110.            dw 0,shade,0,16*sbc,0,6,4,3,10,6    ,0,0,0
  111.            dw 0,shade,0,16*sbc,0,2,5,9,1,2     ,0,0,0
  112.            dw 0,shade,0,16*sbc,0,4,6,9,5,4     ,0,0,0
  113.            dw 0,wavey,0,16*sbc,0,2,4,5,2              ; cockpit
  114.            dw 0,wavey,0,16*sbc,0,3,4,2,3
  115.  
  116.            dw 0,shade,0,16*sbc,0,18,15,17,18   ,0,0,0 ; right arm
  117.            dw 0,shade,0,16*sbc,0,17,15,16,17   ,0,0,0
  118.            dw 0,shade,0,16*sbc,0,15,6,8,16,15  ,0,0,0
  119.            dw 0,shade,0,16*sbc,0,9,6,15,18,9   ,0,0,0
  120.  
  121.            dw 0,wavey,0,16*sec,0,8,6,7,8              ; engine
  122.  
  123.            dw 0,shade,0,16*sbc,0,11,12,6,10,11 ,0,0,0 ; left arm
  124.            dw 0,shade,0,16*sbc,0,12,13,7,6,12  ,0,0,0
  125.            dw 0,shade,0,16*sbc,0,13,12,14,13   ,0,0,0
  126.            dw 0,shade,0,16*sbc,0,14,12,11,14   ,0,0,0
  127.  
  128.            dw iterate,shade,0,16*suc,0,7,13,11,10,7  ,0,0,0 ; underside
  129.  
  130.               dw 0
  131.               dw 4
  132.               dw 25 dup (0)
  133.  
  134.               dw both,last,0,16*suc,0,14,11,13,14
  135.               dw both,last,0,16*suc,0,1,8,7,1
  136.               dw both,last,0,16*suc,0,9,18,16,8,9
  137.               dw both,last,0,16*suc,0,17,16,18,17
  138.  
  139. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  140. ; these are cross referancing palettes for the spaceships - this way, the
  141. ; same shape data can be used for different colour spaceships
  142. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  143.  
  144. xrefgreen:
  145.            c = 16*4
  146.            rept 16
  147.            db c
  148.            c=c+1
  149.            endm
  150.            c = 16*1
  151.            rept 16
  152.            db c
  153.            c=c+1
  154.            endm
  155.            c = 16*8
  156.            rept 16
  157.            db c
  158.            c=c+1
  159.            endm
  160. xrefblue:
  161.            c = 16*2
  162.            rept 16
  163.            db c
  164.            c=c+1
  165.            endm
  166.            c = 16*1
  167.            rept 16
  168.            db c
  169.            c=c+1
  170.            endm
  171.            c = 16*8
  172.            rept 16
  173.            db c
  174.            c=c+1
  175.            endm
  176. xrefred:
  177.            c = 16*3
  178.            rept 16
  179.            db c
  180.            c=c+1
  181.            endm
  182.            c = 16*1
  183.            rept 16
  184.            db c
  185.            c=c+1
  186.            endm
  187.            c = 16*8
  188.            rept 16
  189.            db c
  190.            c=c+1
  191.            endm
  192.  
  193. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  194. ; the platform shape data
  195. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  196.  
  197. platform1  dd -1
  198.            dd offset hplat1 - offset $ - 4
  199.  
  200. hplat1:
  201.            dw 6,6
  202.            dw 25 dup (0)
  203.  
  204.            dw -1120,-1600, 400 ; 1
  205.            dw -1000,-1600,-960 ; 2
  206.            dw   440,-1600,-720 ; 3
  207.            dw  2200,-1600, 680 ; 4
  208.            dw  -350,-1600,1000 ; 5
  209.            dw     0, 1700,   0 ; 6
  210.  
  211.            dw 0,0,0,16*3+14,0,1,2,3,4,5,1
  212.            dw 0,0,0,16*3+ 3,0,1,6,2,1
  213.            dw 0,0,0,16*3+ 1,0,2,6,3,2
  214.            dw 0,0,0,16*3+ 5,0,3,6,4,3
  215.            dw 0,0,0,16*3+ 9,0,4,6,5,4
  216.            dw 0,0,0,16*3+ 5,0,5,6,1,5
  217.  
  218. platform2  dd -1
  219.            dd offset hplat2 - offset $ - 4
  220.  
  221. hplat2:
  222.            dw 9,10
  223.            dw 25 dup (0)
  224.  
  225.            dw -2925,-1800,-2160 ; 1
  226.            dw -1215,-1800,-1575 ; 2
  227.            dw  -540,-1800, -900 ; 3
  228.            dw   135,-1800,-1665 ; 4
  229.            dw  1215,-1800, -675 ; 5
  230.            dw  1170,-1800,  900 ; 6
  231.            dw -1440,-1800, 1125 ; 7
  232.            dw   945,    0,    0 ; 8
  233.            dw     0, 1800,    0 ; 9
  234.  
  235.            dw 0,0,0,16*2+15,0,1,2,3,7,1
  236.            dw 0,0,0,16*2+15,0,4,5,6,7,3,4
  237.            dw 0,0,0,16*2+9 ,0,6,8,9,6
  238.            dw 0,0,0,16*2+12,0,8,6,5,8
  239.            dw 0,0,0,16*2+8 ,0,7,6,9,7
  240.            dw 0,0,0,16*2+5 ,0,1,7,9,1
  241.            dw 0,0,0,16*2+7 ,0,2,1,9,2
  242.            dw 0,0,0,16*2+9 ,0,3,2,9,3
  243.            dw 0,0,0,16*2+3 ,0,4,3,9,4
  244.            dw 0,0,0,16*2+10,0,5,4,9,8,5
  245.  
  246. platform3  dd -1
  247.            dd offset hplat3 - offset $ - 4
  248.  
  249. hplat3:
  250.            dw 17,21
  251.            dw 25 dup (0)
  252.  
  253.            dw -2310,- 315,-300  ;1
  254.            dw -2070,- 315,-930  ;2
  255.            dw  -630,- 315,-360  ;3
  256.            dw   690,-1085,-630  ;4
  257.            dw  1350,-1085,-1200 ;5
  258.            dw  2160,-1085,210   ;6
  259.            dw  1230,-1085,1440  ;7
  260.            dw   690,-1085,330   ;8
  261.            dw  -570,- 315,360   ;9
  262.            dw -1020,- 315,870   ;10
  263.            dw -2070,- 315,1320  ;11
  264.            dw -1680, 1885,0     ;12
  265.            dw  1230, 1900,0     ;13
  266.            dw  -540,    0,-240  ;14
  267.            dw  -540,    0,210   ;15
  268.            dw   690,-525 ,100   ;16
  269.            dw   690,-525 ,-450  ;17
  270.  
  271.            dw 0,0,0,16*4+13,0,1,2,3,9,10,11,1
  272.            dw 0,0,0,16*4+15,0,3,4,8,9,3
  273.            dw 0,0,0,16*4+13,0,6,7,8,4,5,6
  274.  
  275.            dw 0,0,0,16*4+11,0,1,12,2,1
  276.            dw 0,0,0,16*4+10,0,2,12,3,2
  277.            dw 0,0,0,16*4+ 5,0,9,12,10,9
  278.            dw 0,0,0,16*4+ 6,0,10,12,11,10
  279.            dw 0,0,0,16*4+ 8,0,1,11,12,1
  280.  
  281.            dw 0,0,0,16*4+12,0,4,13,5,4
  282.            dw 0,0,0,16*4+ 8,0,5,13,6,5
  283.            dw 0,0,0,16*4+ 4,0,6,13,7,6
  284.            dw 0,0,0,16*4+ 5,0,7,13,8,7
  285.  
  286.            dw 0,0,0,16*4+ 2,0,15,16,17,14,15
  287.            dw 0,0,0,16*4+ 5,0,15,12,9,15
  288.            dw 0,0,0,16*4+10,0,14,3,12,14
  289.            dw 0,0,0,16*4+ 5,0,8,13,16,8
  290.            dw 0,0,0,16*4+12,0,17,13,4,17
  291.  
  292.            dw 0,0,0,16*4+ 3,0,15,14,12,15
  293.            dw 0,0,0,16*4+ 7,0,16,13,17,16
  294.  
  295.            dw 0,0,0,16*4+ 8,0,14,17,4,3,14
  296.            dw 0,0,0,16*4+ 4,0,16,15,9,8,16
  297.  
  298. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  299. ; diamond shape data
  300. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  301.  
  302. diamond1   dd -1
  303.            dd offset dia1 - offset $ - 4
  304.  
  305. dia1       dw 8,12
  306.            dw 25 dup (0)
  307.  
  308.            dw -100,-25,0   ; 1
  309.            dw -100,+25,0   ; 2
  310.            dw 0   ,-50,0   ; 3
  311.            dw 0   ,0  ,+25 ; 4
  312.            dw 0   ,0  ,-25 ; 5
  313.            dw 0   ,+50,0   ; 6
  314.            dw +100,-25,0   ; 7
  315.            dw +100,+25,0   ; 8
  316.  
  317.            dw 0,shade,0,0*16+0,0,1,5,3,1       ,0,0,0
  318.            dw 0,shade,0,0*16+0,0,2,5,1,2       ,0,0,0
  319.            dw 0,shade,0,0*16+0,0,6,5,2,6       ,0,0,0
  320.            dw 0,shade,0,0*16+0,0,8,5,6,8       ,0,0,0
  321.            dw 0,shade,0,0*16+0,0,7,5,8,7       ,0,0,0
  322.            dw 0,shade,0,0*16+0,0,3,5,7,3       ,0,0,0
  323.  
  324.            dw 0,shade,0,0*16+0,0,1,3,4,1       ,0,0,0
  325.            dw 0,shade,0,0*16+0,0,2,1,4,2       ,0,0,0
  326.            dw 0,shade,0,0*16+0,0,6,2,4,6       ,0,0,0
  327.            dw 0,shade,0,0*16+0,0,8,6,4,8       ,0,0,0
  328.            dw 0,shade,0,0*16+0,0,7,8,4,7       ,0,0,0
  329.            dw 0,shade,0,0*16+0,0,3,7,4,3       ,0,0,0
  330.  
  331. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  332. ; palette cross referancing for the diamonds
  333. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  334.  
  335. diagreen:
  336.            c=16*4
  337.            rept 16
  338.            db c
  339.            c=c+1
  340.            endm
  341. diablue:
  342.            c=16*2
  343.            rept 16
  344.            db c
  345.            c=c+1
  346.            endm
  347. diared:
  348.            c=16*3
  349.            rept 16
  350.            db c
  351.            c=c+1
  352.            endm
  353.  
  354. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  355. ; Animation sequence for those spaceships flying around.
  356. ;
  357. ; Note: all offsets are relative from original animation offset
  358. ; this way, animation sequences can be anywhere in memory and still run.
  359. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  360.  
  361.          align 4
  362.  
  363. animation1:
  364.  
  365.          j equ offset animation1
  366.          o equ offset
  367.  
  368.          dw (o endlists - o lists ) / 2 ; number of headers
  369.          dw o lists-j
  370.          dw o sequences-j
  371.  
  372. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  373. ; pointers to sequence headers
  374. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  375.  
  376. lists:
  377.          dw o head0-j    ; platforms and camera
  378.          dw o headbs0-j  ; blue ships
  379.          dw o headbs1-j
  380.          dw o headbs2-j
  381.          dw o headgs0-j  ; green ships
  382.         ;dw o headgs1-j
  383.         ;dw o headgs2-j
  384.         ;dw o headrs0-j  ; red ships
  385.         ;dw o headrs1-j
  386.         ;dw o headrs2-j
  387.         ;dw o headbd0-j  ; blue diamonds
  388.         ;dw o headbd1-j
  389.         ;dw o headbd2-j
  390.         ;dw o headgd0-j  ; green diamonds
  391.         ;dw o headgd1-j
  392.         ;dw o headgd2-j
  393.         ;dw o headrd0-j  ; red diamonds
  394.         ;dw o headrd1-j
  395.         ;dw o headrd2-j
  396. endlists:
  397.  
  398. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  399. ; selectable sequences: eg "seq 1" goes to moveit1 and performs that sequence
  400. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  401.  
  402. sequences:
  403.          dw o moveit0-j  ; fade off, initialize xmode, fade on
  404.          dw o moveit1-j  ; initialize shapes
  405.          dw o moveit2-j  ; platforms
  406.          dw o moveit3-j  ; camera
  407.          dw 0
  408.          dw o moveit5-j  ; circle routine
  409.          dw o moveit6-j  ; plot blue ship
  410.          dw o moveit7-j  ; wait for 15 frames to pass
  411.          dw 0
  412.          dw 0
  413.          dw 0
  414.          dw 0
  415.          dw 0
  416.          dw 0
  417.          dw 0
  418.          dw o moveitf-j  ;
  419.          dw o moveitg-j  ;
  420.  
  421. head0:
  422.          seq 0        ; headers to sequences
  423.          seq 1        ; eg do sequence 0, then 1, then 2...done
  424.          seq 2
  425.          seq 3
  426.          done_all     ; when this happens, entire thing is done...
  427.  
  428. headbs0:
  429.          seq 6
  430.          seq 5
  431.          done
  432. headbs1:
  433.          seq 7
  434.          seq 6
  435.          seq 5
  436.          done
  437. headbs2:
  438.          seq 7
  439.          seq 7
  440.          seq 6
  441.          seq 5
  442.          done
  443.  
  444. headgs0:
  445.          seq 15  ; green ship, moveit around and around....
  446.          seq 16
  447.          seq 16
  448.          seq 16
  449.          done
  450.  
  451. moveit0:
  452.          fade_all 0,0,0,1,255,0
  453.          set_mode xmode,xactual,yactual,pages
  454.          initialize
  455.          exit
  456.  
  457. moveit1:                                  ; initialize objects and bitmaps
  458.          init_shape 0,platform1-j
  459.          init_shape 1,platform2-j
  460.          init_shape 2,platform3-j
  461.          init_shape 3,ship1-j
  462.          init_shape 4,diamond1-j
  463.  
  464.          init_bitmap 0,sphere,15,15
  465.          init_bitmap 1,icon,15,15
  466.  
  467.          fade_to gamecolr-j,1,230,1
  468.          exit
  469.  
  470. moveit2:
  471.          new_object                       ; place platforms
  472.          location 4250000,-750000,0
  473.          full_rotation
  474.          rotate_it 0,-20,0,65500
  475.          shape 0
  476.          on object
  477.  
  478.          new_object
  479.          location -1000000,750000,3250000
  480.          full_rotation
  481.          rotate_it 0,40,0,65500
  482.          shape 1
  483.          on object
  484.  
  485.          new_object
  486.          location -4250000,0,-3250000
  487.          full_rotation
  488.          rotate_it 0,-30,0,65500
  489.          shape 2
  490.          on object
  491.  
  492.          exit
  493. moveit3:
  494.          reset_irq
  495.          camera
  496.  
  497.          location -5300000,-1933000,-3900000
  498.          follow_obj 3,0
  499.          wait_for ac,0
  500.  
  501.          move -5750000,-1800000,-3250000,180*2
  502.          wait_for lc,0
  503.          move -5300000,-1600000,-2350000,181*2
  504.          wait_for lc,0
  505.          move -4250000,-1400000,-2200000,190*2
  506.          wait_for lc,0
  507.          move -3350000,-1200000,-2800000,194*2
  508.          wait_for lc,0
  509.          move -3350000,-900000,-3700000,162*2
  510.          wait_for lc,0
  511.          move -4250000,-700000,-4150000,181*2
  512.          wait_for lc,0
  513.          move -5000000,-600000,-3850000,145*2
  514.          wait_for lc,0
  515.          move -5150000,-500000,-3150000,128*2
  516.          wait_for lc,0
  517.          move -4400000,-600000,-2650000,162*2
  518.          wait_for lc,0
  519.          move -3650000,-700000,-3150000,162*2
  520.          wait_for lc,0
  521.          move -4100000,-800000,-3700000,127*2
  522.          wait_for lc,0
  523.          move -4200000,-900000,-3550000,32*2
  524.          wait_for lc,0
  525.          move -4700000,-1100000,-3250000,104*2
  526.          wait_for lc,0
  527.          move -4860000,-1200000,-2950000,61*2
  528.          wait_for lc,0
  529.          move -4550000,-1300000,-3020000,57*2
  530.          wait_for lc,0
  531.          move -3650000,-700000,-3150000,163*2
  532.          wait_for lc,0
  533.          move -4100000,-800000,-3700000,127*2
  534.          wait_for lc,0
  535.          move -5550000,-600000,-4820000,329*2
  536.          wait_for lc,0
  537.  
  538.          move -4500000,-800000,-3200000,270
  539.          follow_obj 2,105                   ; look at blue platform
  540.          wait_for lc,0
  541.          move -1200000,-900000,4000000,400 ; go toward blue platform
  542.          wait_for lc,0
  543.  
  544.          wait_for frame_r,545               ; wait until blue ships start their invasion
  545.  
  546.          follow_obj 4,65                    ; now start to follow the blue ships
  547.  
  548.          wait_for frame_r,70
  549.          move 4200000,-900000,50000,400
  550.  
  551.          wait_for frame_r,300
  552.  
  553.          exit
  554.  
  555. moveit5:
  556.          angle 0,5000,-10000        ; blue ships spinning above their home base
  557.          wait_for ac,0
  558.          twist_y 65536*128+23000,55*70*4
  559.          align_d 16000
  560.          wait_for frame_r 6525
  561.  
  562.          move 3900000,-600000,0,440 ; now blue ships take off for red invasion
  563.          point_tm 10
  564.          rotate_y 0,0
  565.          twist_z 65536*3,170
  566.          align_off
  567.          wait_for frame_r 10000
  568.  
  569.          exit
  570. moveit6:                            ; set original specs for blue ships
  571.          new_object
  572.          location -1300000,100000,3500000
  573.          full_rotation
  574.          rotate_it 0,40,0,65500
  575.          shape 3
  576.          xref_palette xrefblue
  577.          on object
  578.          exit
  579. moveit7:
  580.          wait_for frame_r 37        ; time delay between blue ships
  581.          exit
  582.  
  583. moveitf:
  584.          new_object
  585.          location -4250000,-200000,-3250000
  586.          full_rotation
  587.          shape 3
  588.          xref_palette xrefgreen
  589.          on object
  590.          exit
  591. moveitg:
  592.          location -4250000,-260000,-3244000 ; this section was made with the qbasic program, I just pointed the mouse and went for it!
  593.          align_d 15000
  594.          point_obj -4248000,-260000,-2898000,50
  595.          wait_for frame_r,23
  596.          point_obj -4890000,-260000,-2884000,50
  597.          wait_for frame_r,42
  598.          point_obj -4888000,-260000,-3652000,50
  599.          wait_for frame_r,51
  600.          point_obj -3656000,-260000,-3674000,50
  601.          wait_for frame_r,82
  602.          point_obj -3628000,-260000,-2774000,50
  603.          wait_for frame_r,60
  604.          point_obj -4802000,-260000,-2792000,50
  605.          wait_for frame_r,78
  606.          point_obj -4836000,-260000,-3598000,50
  607.          wait_for frame_r,53
  608.          point_obj -3692000,-260000,-3624000,50
  609.          wait_for frame_r,76
  610.          point_obj -3688000,-260000,-2816000,50
  611.          wait_for frame_r,53
  612.          point_obj -4698000,-260000,-2848000,50
  613.          wait_for frame_r,67
  614.          point_obj -4738000,-260000,-3556000,50
  615.          wait_for frame_r,47
  616.          point_obj -3780000,-260000,-3560000,50
  617.          wait_for frame_r,63
  618.          point_obj -3760000,-260000,-2874000,50
  619.          wait_for frame_r,45
  620.          point_obj -4666000,-260000,-3500000,50
  621.          wait_for frame_r,73
  622.          point_obj -3846000,-260000,-3522000,50
  623.          wait_for frame_r,54
  624.          point_obj -4616000,-260000,-2906000,50
  625.          wait_for frame_r,65
  626.          point_obj -3784000,-260000,-2872000,50
  627.          wait_for frame_r,55
  628.          point_obj -3842000,-260000,-3510000,50
  629.          wait_for frame_r,42
  630.          point_obj -4628000,-260000,-3496000,50
  631.          wait_for frame_r,52
  632.          point_obj -4622000,-260000,-2930000,50
  633.          wait_for frame_r,37
  634.          point_obj -3832000,-260000,-2902000,50
  635.          wait_for frame_r,52
  636.          point_obj -3852000,-260000,-3500000,50
  637.          wait_for frame_r,39
  638.          point_obj -4686000,-260000,-3516000,50
  639.          wait_for frame_r,55
  640.          point_obj -4666000,-260000,-2890000,50
  641.          wait_for frame_r,41
  642.          point_obj -3754000,-260000,-2876000,50
  643.          wait_for frame_r,60
  644.          point_obj -3802000,-260000,-3548000,50
  645.          wait_for frame_r,44
  646.          point_obj -4706000,-260000,-3580000,50
  647.          wait_for frame_r,60
  648.          point_obj -4734000,-260000,-2854000,50
  649.          wait_for frame_r,48
  650.          point_obj -3722000,-260000,-2846000,50
  651.          wait_for frame_r,67
  652.          point_obj -3766000,-260000,-3552000,50
  653.          wait_for frame_r,47
  654.          point_obj -4774000,-260000,-3580000,50
  655.          wait_for frame_r,67
  656.          point_obj -4750000,-260000,-2816000,50
  657.          wait_for frame_r,50
  658.          point_obj -3702000,-260000,-2808000,50
  659.          wait_for frame_r,69
  660.          point_obj -3754000,-260000,-3586000,50
  661.          wait_for frame_r,51
  662.          point_obj -4762000,-260000,-3582000,50
  663.          wait_for frame_r,67
  664.          point_obj -4754000,-260000,-2806000,50
  665.          wait_for frame_r,51
  666.          point_obj -3754000,-260000,-2846000,50
  667.          wait_for frame_r,66
  668.          point_obj -4084000,-260000,-3254000,50
  669.          wait_for frame_r,34
  670.          point_obj -4254000,-260000,-3290000,50
  671.          wait_for frame_r,11
  672.          point_obj -4290000,-260000,-3230000,50
  673.          wait_for frame_r,4
  674.          point_obj -4268000,-260000,-3160000,50
  675.          wait_for frame_r,4
  676.          point_obj -4242000,-260000,-3154000,50
  677.          wait_for frame_r,1
  678.          point_obj -4218000,-260000,-3154000,50
  679.          wait_for frame_r,1
  680.          point_obj -4194000,-260000,-3154000,50
  681.          wait_for frame_r,1
  682.          point_obj -4160000,-260000,-3156000,50
  683.          wait_for frame_r,2
  684.          point_obj -4136000,-260000,-3160000,50
  685.          wait_for frame_r,1
  686.          point_obj -4120000,-260000,-3180000,50
  687.          wait_for frame_r,1
  688.          point_obj -4112000,-260000,-3204000,50
  689.          wait_for frame_r,1
  690.          point_obj -4116000,-260000,-3228000,50
  691.          wait_for frame_r,1
  692.          point_obj -4136000,-260000,-3254000,50
  693.          wait_for frame_r,2
  694.          point_obj -4164000,-260000,-3270000,50
  695.          wait_for frame_r,2
  696.          point_obj -4184000,-260000,-3276000,50
  697.          wait_for frame_r,1
  698.          point_obj -4210000,-260000,-3284000,50
  699.          wait_for frame_r,1
  700.          point_obj -4242000,-260000,-3280000,50
  701.          wait_for frame_r,2
  702.          point_obj -4260000,-260000,-3256000,50
  703.          wait_for frame_r,2
  704.          point_obj -4262000,-260000,-3232000,50
  705.          wait_for frame_r,1
  706.          point_obj -4252000,-260000,-3208000,50
  707.          wait_for frame_r,1
  708.          point_obj -4232000,-260000,-3192000,50
  709.          wait_for frame_r,1
  710.          point_obj -4208000,-260000,-3188000,50
  711.          wait_for frame_r,1
  712.          point_obj -4190000,-260000,-3218000,50
  713.          wait_for frame_r,2
  714.          point_obj -4198000,-260000,-3240000,50
  715.          wait_for frame_r,1
  716.          point_obj -4224000,-260000,-3254000,50
  717.          wait_for frame_r,1
  718.          point_obj -4254000,-260000,-3258000,50
  719.          wait_for frame_r,2
  720.          point_obj -4280000,-260000,-3260000,50
  721.          wait_for frame_r,1
  722.          point_obj -4302000,-260000,-3244000,50
  723.          wait_for frame_r,1
  724.          point_obj -4306000,-260000,-3224000,50
  725.          wait_for frame_r,1
  726.          point_obj -4306000,-260000,-3200000,50
  727.          wait_for frame_r,1
  728.          point_obj -4284000,-260000,-3178000,50
  729.          wait_for frame_r,2
  730.          point_obj -4264000,-260000,-3172000,50
  731.          wait_for frame_r,1
  732.          point_obj -4230000,-260000,-3170000,50
  733.          wait_for frame_r,2
  734.          point_obj -4186000,-260000,-3170000,50
  735.          wait_for frame_r,2
  736.          point_obj -4166000,-260000,-3174000,50
  737.          wait_for frame_r,1
  738.          point_obj -4146000,-260000,-3178000,50
  739.          wait_for frame_r,1
  740.          point_obj -4128000,-260000,-3200000,50
  741.          wait_for frame_r,1
  742.          point_obj -4120000,-260000,-3234000,50
  743.          wait_for frame_r,2
  744.          point_obj -4124000,-260000,-3256000,50
  745.          wait_for frame_r,1
  746.          point_obj -4150000,-260000,-3278000,50
  747.          wait_for frame_r,2
  748.          point_obj -4174000,-260000,-3290000,50
  749.          wait_for frame_r,1
  750.          point_obj -4198000,-260000,-3294000,50
  751.          wait_for frame_r,1
  752.          point_obj -4226000,-260000,-3298000,50
  753.          wait_for frame_r,1
  754.          point_obj -4266000,-260000,-3286000,50
  755.          wait_for frame_r,2
  756.          point_obj -4290000,-260000,-3272000,50
  757.          wait_for frame_r,1
  758.          point_obj -4304000,-260000,-3248000,50
  759.          wait_for frame_r,1
  760.          point_obj -4308000,-260000,-3218000,50
  761.          wait_for frame_r,2
  762.          point_obj -4304000,-260000,-3194000,50
  763.          wait_for frame_r,1
  764.          point_obj -4260000,-260000,-3162000,50
  765.          wait_for frame_r,3
  766.          point_obj -4216000,-260000,-3150000,50
  767.          wait_for frame_r,3
  768.          point_obj -4182000,-260000,-3146000,50
  769.          wait_for frame_r,2
  770.          point_obj -4148000,-260000,-3142000,50
  771.          wait_for frame_r,2
  772.          point_obj -4128000,-260000,-3158000,50
  773.          wait_for frame_r,1
  774.          point_obj -4120000,-260000,-3186000,50
  775.          wait_for frame_r,1
  776.          point_obj -4120000,-260000,-3206000,50
  777.          wait_for frame_r,1
  778.          point_obj -4128000,-260000,-3232000,50
  779.          wait_for frame_r,1
  780.          point_obj -4150000,-260000,-3256000,50
  781.          wait_for frame_r,2
  782.          point_obj -4170000,-260000,-3264000,50
  783.          wait_for frame_r,1
  784.          point_obj -4200000,-260000,-3270000,50
  785.          wait_for frame_r,2
  786.          point_obj -4224000,-260000,-3274000,50
  787.          wait_for frame_r,1
  788.          point_obj -4248000,-260000,-3272000,50
  789.          wait_for frame_r,1
  790.          point_obj -4268000,-260000,-3260000,50
  791.          wait_for frame_r,1
  792.          point_obj -4278000,-260000,-3236000,50
  793.          wait_for frame_r,1
  794.          point_obj -4274000,-260000,-3214000,50
  795.          wait_for frame_r,1
  796.          point_obj -4242000,-260000,-3196000,50
  797.          wait_for frame_r,2
  798.          point_obj -4214000,-260000,-3200000,50
  799.          wait_for frame_r,1
  800.          point_obj -4202000,-260000,-3220000,50
  801.          wait_for frame_r,1
  802.          point_obj -4224000,-260000,-3232000,50
  803.          wait_for frame_r,1
  804.          point_obj -4244000,-260000,-3226000,50
  805.          wait_for frame_r,1
  806.          point_obj -4256000,-260000,-3204000,50
  807.          wait_for frame_r,1
  808.          point_obj -4236000,-260000,-3180000,50
  809.          wait_for frame_r,2
  810.  
  811.          move -3600000,-140000,-3500000,10
  812.          point_tm 10
  813.          wait_for lc,0
  814.          move -4900000,-240000,-3000000,10
  815.          point_tm 10
  816.          wait_for lc,0
  817.  
  818.          exit
  819.  
  820.